IniClose Subroutine

public subroutine IniClose(iniDB)

close a ini file

Arguments

Type IntentOptional Attributes Name
type(IniList), intent(out) :: iniDB

Source Code

SUBROUTINE IniClose &
!
 (iniDB)
 
IMPLICIT NONE
! subroutine arguments 

! Array arguments with intent(out):
TYPE (IniList), INTENT(OUT)  :: iniDB 
!------------end of declaration------------------------------------------------

    DEALLOCATE (iniDB % keys)
    DEALLOCATE (iniDB % vals)
	DEALLOCATE (iniDB % sectionName)
	DEALLOCATE (iniDB % subSectionName)
	DEALLOCATE (iniDB % sectionBegin)
	DEALLOCATE (iniDB % sectionEnd)
	DEALLOCATE (iniDB % subSectionBegin)
	DEALLOCATE (iniDB % subSectionEnd)

END SUBROUTINE IniClose